﻿Public Class FormCLPD
    'JAIL TIMES
    Const AIDINGABETTING As Integer = 30
    Const ARMEDROBBERY As Integer = 35
    Const ARMSTRAFFICKING As Integer = 40
    Const VEHICULARASSAULT As Integer = 30
    Const ASSAULTMUGGING As Integer = 20
    Const ATTEMPTEDMURDER As Integer = 45
    Const ATTEMPTEDSUICIDE As Integer = 30
    Const DUI As Integer = 25
    Const EXPLOSIVES As Integer = 35
    Const FAILURETOSTOP As Integer = 10
    Const FTC As Integer = 10
    Const FTCWARRANT As Integer = 120
    Const FTCJAIL As Integer = 5
    Const FILINGFALSEREPORT As Integer = 5
    Const HOSTAGETAKING As Integer = 20
    Const ILLEGALITEM As Integer = 5
    Const COCAINE As Integer = 4
    Const WEED As Integer = 3
    Const POPPY As Integer = 5
    Const MUSHROOM As Integer = 2
    Const ILLEGALDEALINGS As Integer = 20
    Const ILLEGALPISTOL As Integer = 20
    Const ILLEGALRIFLE As Integer = 30
    Const JAILBREAK As Integer = 30
    Const KIDNAPPING As Integer = 20
    Const KILLINGDOG As Integer = 25
    Const MANSLAUGHTER As Integer = 35
    Const VEHICULARMANSLAUGHTER As Integer = 35
    Const MURDER As Integer = 60
    Const RESISTINGARREST As Integer = 10
    Const THEFT As Integer = 10
    Const THEFTCIVVEHICLE As Integer = 15
    Const THEFTPDVEHICLE As Integer = 30
    Const THREATENINGBEHAVIOR As Integer = 15
    Const UNHOLSTEREDWEAPON As Integer = 15
    Const UNLICENSEDPISTOL As Integer = 30
    Const UNLICENSEDRIFLE As Integer = 30
    Const CLPDRESTRICTEDZONE As Integer = 20
    Const BRIBINGPOLICE As Integer = 15
    Const DESTRUCTIONOFPROPERTY As Integer = 10
    Const DANGEROUSDRIVING As Integer = 5
    Const HITANDRUN As Integer = 30
    Const DRUGPOSSESSION As Integer = 20
    Const DRUGTRAFFICKING As Integer = 30

    'FINES
    Const ARMSTRAFFICKINGFINE As Integer = 2000
    Const ABANDONMENTOFVEHICLE As Integer = 100
    Const VEHICULARASSAULTFINE As Integer = 500
    Const ASSAULTFINE As Integer = 500
    Const CLPDRESTRICTEDZONEFINE As Integer = 5000
    Const DUIFINE As Integer = 500
    Const FAILURETOMOVEGREEN = 100
    Const FAILURETOSTOPREDLIGHT = 500
    Const FAILINGTOYIELDFINE As Integer = 1000
    Const FTCFINE As Integer = 500
    Const FILINGFALSEREPORTFINE As Integer = 500
    Const FTCWARRANTFINE As Integer = 10000
    Const HONKINGHORNFINE As Integer = 200
    Const ILLEGALDEALINGSFINE As Integer = 1000
    Const ILLEGALPARKINGFINE As Integer = 100
    Const INTERFERINGWITHPOLICEFINE As Integer = 500
    Const LITTERINGFINE As Integer = 100
    Const OFFROADINGFINE As Integer = 300
    Const PUBLICOXICATIONFINE As Integer = 100
    Const RECKLESSDRIVINGFINE As Integer = 1000
    Const RECKLESSDRIVINGINJURYFINE As Integer = 1500
    Const SPAMMINGGLOBALFINE As Integer = 1000
    Const SPEEDINGFINE As Integer = 100
    Const TRESPASSINGFINE As Integer = 500
    Const UNLICENSEDFLYINGFINE As Integer = 1000

    'Variables for totals
    Dim jailTime As Integer
    Dim finalJailTime As Double
    Dim fines As Integer
    Dim fineTime As Double
    Dim charges As String
    Dim sentence As String
    Dim hours As Integer
    Dim minutes As Integer

    'License Revocation Variables
    Dim allWeaponsLicenses As Boolean = False
    Dim weaponLicense As Boolean = False
    Dim allWeapons As Boolean = False
    Dim weapon As Boolean = False
    Dim vehicleLicense As Boolean = False

    Private Sub ButtonCalculate_Click(sender As Object, e As EventArgs) Handles ButtonCalculate.Click
        'Clears textbox in-case something was there before 'warrant' info is displayed
        TextSentence.Text = ""

        Try
            'Aiding and Abetting
            If TextAidingAbetting.Text <> "" Then
                jailTime += TextAidingAbetting.Text * AIDINGABETTING
                charges += TextAidingAbetting.Text & "x Aiding and Abetting, "
            End If
            'Abandonment of Vehicle
            If TextAbandonmentVehicle.Text <> "" Then
                fines += TextAbandonmentVehicle.Text * ABANDONMENTOFVEHICLE
                charges += TextAbandonmentVehicle.Text & "x Abandonment of Vehicle, "
            End If
            'Armed Robbery
            If TextArmedRobbery.Text <> "" Then
                jailTime += TextArmedRobbery.Text * ARMEDROBBERY
                weaponLicense = True
                weapon = True
                charges += TextArmedRobbery.Text & "x Armed Robbery, "
            End If
            'Arms Trafficking
            If TextArmsTrafficking.Text <> "" Then
                jailTime += TextArmsTrafficking.Text * ARMSTRAFFICKING
                fines += TextArmsTrafficking.Text * ARMSTRAFFICKINGFINE
                allWeaponsLicenses = True
                allWeapons = True
                charges += TextArmsTrafficking.Text & "x Arms Trafficking, "
            End If
            'Vehicular Assault
            If TextAssaultVehicular.Text <> "" Then
                jailTime += TextAssaultVehicular.Text * VEHICULARASSAULT
                fines += TextAssaultVehicular.Text * VEHICULARASSAULTFINE
                charges += TextAssaultVehicular.Text & "x Vehicular Assault, "
            End If
            'Assault/Mugging
            If TextAssaultMugging.Text <> "" Then
                jailTime += TextAssaultMugging.Text * ASSAULTMUGGING
                fines += TextAssaultMugging.Text * ASSAULTFINE
                charges += TextAssaultMugging.Text & "x Assault, "
            End If
            'Attempted Murder
            If TextAttemptedMurder.Text <> "" Then
                jailTime += TextAttemptedMurder.Text * ATTEMPTEDMURDER
                allWeaponsLicenses = True
                allWeapons = True
                charges += TextAttemptedMurder.Text & "x Attempted Murder, "
            End If
            'Attempted Suicide
            If TextAttemptedSuicide.Text <> "" Then
                jailTime += TextAttemptedSuicide.Text * ATTEMPTEDSUICIDE
                charges += TextAttemptedSuicide.Text & "x Attempted Suicide, "
            End If
            'Bribing Police
            If TextBribingPolice.Text <> "" Then
                jailTime += TextBribingPolice.Text * BRIBINGPOLICE
                charges += TextBribingPolice.Text & "x Bribing Police, "
            End If
            'CLPD Restricted Zone
            If TextCLPDRestrictedZone.Text <> "" Then
                jailTime += TextCLPDRestrictedZone.Text * CLPDRESTRICTEDZONE
                fines += TextCLPDRestrictedZone.Text * CLPDRESTRICTEDZONEFINE
                charges += TextCLPDRestrictedZone.Text & "x CLPD Restricted Zone, "
            End If
            'Dangerous Driving
            If TextDangerousDriving.Text <> "" Then
                fines += TextDangerousDriving.Text * DANGEROUSDRIVING
                charges += TextDangerousDriving.Text & "x Dangerous Driving, "
            End If
            'Destruction of Property
            If TextDestructionOfProperty.Text <> "" Then
                jailTime += TextDestructionOfProperty.Text * DESTRUCTIONOFPROPERTY
                charges += TextDestructionOfProperty.Text & "x Destruction of Property, "
            End If
            'Drug Possession
            If TextDrugPossession.Text <> "" Then
                jailTime += TextDrugPossession.Text * DRUGPOSSESSION
                charges += TextDrugPossession.Text & "x Drug Possession, "
            End If
            'Drug Trafficking
            If TextDrugTrafficking.Text <> "" Then
                jailTime += TextDrugTrafficking.Text * DRUGTRAFFICKING
                charges += TextDrugTrafficking.Text & "x Drug Trafficking, "
            End If
            'Cocaine
            If TextCocaine.Text <> "" Then
                jailTime += TextCocaine.Text * COCAINE
                charges += TextCocaine.Text & "x Illegal Item (Cocaine), "
            End If
            'Mushroom
            If TextMushroom.Text <> "" Then
                jailTime += TextMushroom.Text * MUSHROOM
                charges += TextMushroom.Text & "x Illegal Item (Mushroom), "
            End If
            'Poppy
            If TextPoppy.Text <> "" Then
                jailTime += TextPoppy.Text * POPPY
                charges += TextPoppy.Text & "x Illegal Item (Poppy), "
            End If
            'Weed
            If TextWeed.Text <> "" Then
                jailTime += TextWeed.Text * WEED
                charges += TextWeed.Text & "x Illegal Item (Weed), "
            End If
            'DUI
            If TextDUI.Text <> "" Then
                jailTime += TextDUI.Text * DUI
                fines += TextDUI.Text * DUIFINE
                charges += TextDUI.Text & "x DUI, "
            End If
            'Explosives
            If TextExplosives.Text <> "" Then
                jailTime += TextExplosives.Text * EXPLOSIVES
                allWeapons = True
                charges += TextExplosives.Text & "x Explosives, "
            End If
            'Failing to Move Green
            If TextFailureToMove.Text <> "" Then
                fines += TextFailureToMove.Text * FAILURETOMOVEGREEN
                charges += TextFailureToMove.Text & "x Failure to Move (Green Light), "
            End If
            'Failure to Yield
            If TextFailureToYield.Text <> "" Then
                fines += TextFailureToYield.Text * FAILINGTOYIELDFINE
                charges += TextFailureToYield.Text & "x Failure to Yield to Emergency Vehicle, "
            End If
            'FTC
            If TextFTC.Text <> "" Then
                jailTime += TextFTC.Text * FTC
                fines += TextFTC.Text * FTCFINE
                charges += TextFTC.Text & "x Failure to Comply, "
            End If
            'FTC in Jail
            If TextFTCJail.Text <> "" Then
                jailTime += TextFTCJail.Text * FTCJAIL
                charges += TextFTCJail.Text & "x Failure to Comply in Jail, "
            End If
            'FTC w/ Warrant
            If TextFTCWarrant.Text <> "" Then
                jailTime += TextFTCWarrant.Text * FTCWARRANT
                fines += TextFTCWarrant.Text * FTCWARRANTFINE
                charges += TextFTCWarrant.Text & "x Failure to Comply w/ Warrant, "
            End If
            'Failure to Stop
            If TextFailureToStop.Text <> "" Then
                jailTime += TextFailureToStop.Text * FAILURETOSTOP
                charges += TextFailureToStop.Text & "x Failure to Stop, "
            End If
            'Failure to Stop at Red Light
            If TextFailureToStopRedLight.Text <> "" Then
                fines += TextFailureToStopRedLight.Text * FAILURETOSTOPREDLIGHT
                charges += TextFailureToStopRedLight.Text & "x Failure to Stop at Red Light, "
            End If
            'Hit and Run
            If TextHitAndRun.Text <> "" Then
                jailTime += TextHitAndRun.Text * HITANDRUN
                charges += TextHitAndRun.Text & "x Hit and Run, "
            End If
            'Honking Horn
            If TextHonkingHorn.Text <> "" Then
                fines += TextHonkingHorn.Text * HONKINGHORNFINE
                charges += TextHonkingHorn.Text & "x Honking Horn (No Reason), "
            End If
            'Hostage Taking
            If TextHostageTaking.Text <> "" Then
                jailTime += TextHostageTaking.Text * HOSTAGETAKING
                weapon = True
                weaponLicense = True
                charges += TextHostageTaking.Text & "x Hostage Taking, "
            End If
            'Illegal Dealings
            If TextIllegalDealings.Text <> "" Then
                jailTime += TextIllegalDealings.Text * ILLEGALDEALINGS
                fines += TextIllegalDealings.Text * ILLEGALDEALINGSFINE
                allWeaponsLicenses = True
                allWeapons = True
                charges += TextIllegalDealings.Text & "x Illegal Dealings, "
            End If
            'Illegal Item
            If TextIllegalItem.Text <> "" Then
                jailTime += TextIllegalItem.Text * ILLEGALITEM
                charges += TextIllegalItem.Text & "x Illegal Item, "
            End If
            'Illegal Parking
            If TextIllegalParking.Text <> "" Then
                fines += TextIllegalParking.Text * ILLEGALPARKINGFINE
                charges += TextIllegalParking.Text & "x Illegal Parking, "
            End If
            'Illegal Pistol
            If TextIllegalPistol.Text <> "" Then
                jailTime += TextIllegalPistol.Text * ILLEGALPISTOL
                allWeapons = True
                charges += TextIllegalPistol.Text & "x Illegal Pistol, "
            End If
            'Illegal Rifle
            If TextIllegalRifle.Text <> "" Then
                jailTime += TextIllegalRifle.Text * ILLEGALRIFLE
                allWeapons = True
                charges += TextIllegalRifle.Text & "x Illegal Rifle, "
            End If
            'Interfering with Police Business
            If TextInterferingPoliceBusiness.Text <> "" Then
                fines += TextInterferingPoliceBusiness.Text * INTERFERINGWITHPOLICEFINE
                charges += TextInterferingPoliceBusiness.Text & "x Interfering with Polic Business, "
            End If
            'Jailbreak
            If TextJailBreak.Text <> "" Then
                jailTime += TextJailBreak.Text * JAILBREAK
                charges += TextJailBreak.Text & "x Jailbreak, "
            End If
            'Kidnapping
            If TextKidnapping.Text <> "" Then
                jailTime += TextKidnapping.Text * KIDNAPPING
                charges += TextKidnapping.Text & "x Kidnapping, "
            End If
            'Killing Police Dog
            If TextKillingPoliceDog.Text <> "" Then
                jailTime += TextKillingPoliceDog.Text * KILLINGDOG
                allWeaponsLicenses = True
                allWeapons = True
                charges += TextKillingPoliceDog.Text & "x Killing Police Dog, "
            End If
            'Littering
            If TextLittering.Text <> "" Then
                fines += TextLittering.Text * LITTERINGFINE
                charges += TextLittering.Text & "x Littering, "
            End If
            'Manslaughter
            If TextManslaughter.Text <> "" Then
                jailTime += TextManslaughter.Text * MANSLAUGHTER
                allWeaponsLicenses = True
                allWeapons = True
                charges += TextManslaughter.Text & "x Manslaughter, "
            End If
            'Vehicular Manslaughter
            If TextVehicularManslaughter.Text <> "" Then
                jailTime += TextVehicularManslaughter.Text * VEHICULARMANSLAUGHTER
                vehicleLicense = True
                charges += TextVehicularManslaughter.Text & "x Vehicular Manslaughter, "
            End If
            'Murder
            If TextMurder.Text <> "" Then
                jailTime += TextMurder.Text * MURDER
                allWeaponsLicenses = True
                allWeapons = True
                charges += TextMurder.Text & "x Murder, "
            End If
            'Offroading
            If TextOffroading.Text <> "" Then
                fines += TextOffroading.Text * OFFROADINGFINE
                charges += TextOffroading.Text & "x Offroading, "
            End If
            'Public Intoxication
            If TextPublicIntoxication.Text <> "" Then
                fines += TextPublicIntoxication.Text * PUBLICOXICATIONFINE
                charges += TextPublicIntoxication.Text & "x Public Intoxication, "
            End If
            'Reckless Driving
            If TextRecklessDriving.Text <> "" Then
                fines += TextRecklessDriving.Text * RECKLESSDRIVINGFINE
                charges += TextRecklessDriving.Text & "x Reckless Driving, "
            End If
            'Reckless Driving w/ Injury
            If TextRecklessDrivingInjury.Text <> "" Then
                fines += TextRecklessDrivingInjury.Text * RECKLESSDRIVINGINJURYFINE
                charges += TextRecklessDrivingInjury.Text & "x Reckless Driving with Injury, "
            End If
            'Resisting Arrest
            If TextResistingArrest.Text <> "" Then
                jailTime += TextResistingArrest.Text * RESISTINGARREST
                charges += TextResistingArrest.Text & "x Resisting Arrest, "
            End If
            'Spamming Global
            If TextSpammingGlobal.Text <> "" Then
                fines += TextSpammingGlobal.Text * SPAMMINGGLOBALFINE
                charges += TextSpammingGlobal.Text & "x Spamming Global, "
            End If
            'Speeding
            If TextSpeeding.Text <> "" Then
                fines += TextSpeeding.Text * SPEEDINGFINE
                charges += TextSpeeding.Text & "x Speeding, "
            End If
            'Theft
            If TextTheft.Text <> "" Then
                jailTime += TextTheft.Text * THEFT
                charges += TextTheft.Text & "x Theft, "
            End If
            'Theft of Civ Vehicle
            If TextTheftCivVehicle.Text <> "" Then
                jailTime += TextTheftCivVehicle.Text * THEFTCIVVEHICLE
                charges += TextTheftCivVehicle.Text & "x Theft of Civ Vehicle, "
            End If
            'Theft of PD Vehicle
            If TextTheftPDVehicle.Text <> "" Then
                jailTime += TextTheftPDVehicle.Text * THEFTPDVEHICLE
                charges += TextTheftPDVehicle.Text & "x Theft of PD Vehicle, "
            End If
            'Threatening Behavior
            If TextThreateningBehavior.Text <> "" Then
                jailTime += TextThreateningBehavior.Text * THREATENINGBEHAVIOR
                charges += TextThreateningBehavior.Text & "x Threatening Behavior, "
            End If
            'Trespassing
            If TextTrespassing.Text <> "" Then
                fines += TextTrespassing.Text * TRESPASSINGFINE
                charges += TextTrespassing.Text & "x Trespassing, "
            End If
            'Unholstered Weapon in City Limits
            If TextUnholsteredWeapon.Text <> "" Then
                jailTime += TextUnholsteredWeapon.Text * UNHOLSTEREDWEAPON
                weaponLicense = True
                weapon = True
                charges += TextUnholsteredWeapon.Text & "x Unholstered Weapon in City Limits, "
            End If
            'Unlicensed Flying/Driving
            If TextUnlicensedFlyingDriving.Text <> "" Then
                fines += TextUnlicensedFlyingDriving.Text * UNLICENSEDFLYINGFINE
                charges += TextUnlicensedFlyingDriving.Text & "x Unlicensed Vehicle Operation, "
            End If
            'Unlicensed Pistol
            If TextUnlicensedPistol.Text <> "" Then
                jailTime += TextUnlicensedPistol.Text * UNLICENSEDPISTOL
                allWeapons = True
                charges += TextUnlicensedPistol.Text & "x Unlicensed Pistol, "
            End If
            'Unlicensed Rifle
            If TextUnlicensedRifle.Text <> "" Then
                jailTime += TextUnlicensedRifle.Text * UNLICENSEDRIFLE
                allWeapons = True
                charges += TextUnlicensedRifle.Text & "x Unlicensed Rifle, "
            End If
        Catch ex As Exception
            MsgBox("check inputs")
        End Try
        'Calculate jailtime based on plea
        If RadioButtonNotGuilty.Checked Then
            finalJailTime = jailTime * 0.9
        ElseIf RadioButtonGuilty.Checked Then
            finalJailTime = jailTime * 1.25
        ElseIf RadioButtonWarrant.Checked Then
            finalJailTime = jailTime
        End If
        'Convert jailtime to hours and minutes
        minutes = finalJailTime Mod 60
        If finalJailTime = 60 Then
            hours = 1
        End If
        If finalJailTime > 60 Then
            hours = finalJailTime \ 60
        End If
        'Add jailtime to string for copy/pasting
        If hours = 1 Then
            sentence += hours & " hour "
        ElseIf hours > 1 Then
            sentence += hours & " hours "
        End If

        If minutes = 1 Then
            sentence += minutes & " minute "
        ElseIf minutes > 1 Then
            sentence += minutes & " minutes "
        End If
        'Calculate and display time if unable to pay fine
        If fines > 100 Then
            fineTime = fines / 100
            LabelFineTimeCantPay.Text = fineTime & " mins"
        End If
        'Display weapon licenses to be revoked
        If allWeaponsLicenses Then
            LabelWeaponLicense.Text = "Revoke ALL Weapons Licenses"
            sentence += "+ Revoke ALL Weapons Licenses "
        ElseIf weaponLicense Then
            LabelWeaponLicense.Text = "Revoke Weapon License"
            sentence += "+ Revoke Weapon License "
        End If
        'Display vehicle license revoke
        If vehicleLicense Then
            LabelVehicleLicense.Text = "Revoke Vehicle License "
            sentence += "+ Revoke Vehicle License "
        End If
        'Display fine, if there's something to display
        If fines > 0 Then
            LabelFines.Text = "$" & fines
            sentence += "+ $" & fines & " fine "
        End If
        'Display totals
        If RadioButtonWarrant.Checked Then
            LabelJailTime.Text = finalJailTime & " mins"
            TextCharges.Text = charges & " - " & sentence
        Else
            LabelJailTime.Text = finalJailTime & " mins"
            TextCharges.Text = charges
            TextSentence.Text = sentence
        End If
        'Reset variables to prevent stacking of charges, etc.
        jailTime = 0
        finalJailTime = 0
        fines = 0
        fineTime = 0
        hours = 0
        minutes = 0
        charges = ""
        sentence = ""
        allWeaponsLicenses = False
        weaponLicense = False
        vehicleLicense = False
    End Sub

    Private Sub ButtonReset_Click(sender As Object, e As EventArgs) Handles ButtonReset.Click
        'Reset Text Boxes
        TextAidingAbetting.Text = ""
        TextAbandonmentVehicle.Text = ""
        TextArmedRobbery.Text = ""
        TextArmsTrafficking.Text = ""
        TextAssaultMugging.Text = ""
        TextAssaultVehicular.Text = ""
        TextAttemptedMurder.Text = ""
        TextAttemptedSuicide.Text = ""
        TextBribingPolice.Text = ""
        TextCLPDRestrictedZone.Text = ""
        TextDangerousDriving.Text = ""
        TextDestructionOfProperty.Text = ""
        TextDrugPossession.Text = ""
        TextDrugTrafficking.Text = ""
        TextCocaine.Text = ""
        TextMushroom.Text = ""
        TextPoppy.Text = ""
        TextWeed.Text = ""
        TextDUI.Text = ""
        TextExplosives.Text = ""
        TextFailureToMove.Text = ""
        TextFailureToYield.Text = ""
        TextFTC.Text = ""
        TextFTCJail.Text = ""
        TextFTCWarrant.Text = ""
        TextFailureToStop.Text = ""
        TextFailureToStopRedLight.Text = ""
        TextFilingFalseReport.Text = ""
        TextHitAndRun.Text = ""
        TextHonkingHorn.Text = ""
        TextHonkingHorn.Text = ""
        TextHostageTaking.Text = ""
        TextIllegalDealings.Text = ""
        TextIllegalItem.Text = ""
        TextIllegalParking.Text = ""
        TextIllegalPistol.Text = ""
        TextIllegalRifle.Text = ""
        TextInterferingPoliceBusiness.Text = ""
        TextJailBreak.Text = ""
        TextKidnapping.Text = ""
        TextKillingPoliceDog.Text = ""
        TextLittering.Text = ""
        TextManslaughter.Text = ""
        TextVehicularManslaughter.Text = ""
        TextMurder.Text = ""
        TextOffroading.Text = ""
        TextPublicIntoxication.Text = ""
        TextRecklessDriving.Text = ""
        TextRecklessDrivingInjury.Text = ""
        TextResistingArrest.Text = ""
        TextSpammingGlobal.Text = ""
        TextSpeeding.Text = ""
        TextTheft.Text = ""
        TextTheftCivVehicle.Text = ""
        TextTheftPDVehicle.Text = ""
        TextThreateningBehavior.Text = ""
        TextTrespassing.Text = ""
        TextUnholsteredWeapon.Text = ""
        TextUnlicensedFlyingDriving.Text = ""
        TextUnlicensedPistol.Text = ""
        TextUnlicensedRifle.Text = ""

        'Clear labels and text box for copy/pasting
        LabelJailTime.Text = ""
        LabelFines.Text = ""
        LabelFineTimeCantPay.Text = ""
        LabelWeaponLicense.Text = ""
        LabelVehicleLicense.Text = ""
        TextCharges.Text = ""
        TextSentence.Text = ""
        RadioButtonNotGuilty.Checked = True
    End Sub

    Private Sub ButtonWarrant_Click(sender As Object, e As EventArgs) Handles ButtonWarrant.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/forum/78-warrants/")
    End Sub

    Private Sub ButtonArrest_Click(sender As Object, e As EventArgs) Handles ButtonArrest.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/forum/46-arrest-reports/")
    End Sub

    Private Sub ButtonSlotSelection_Click(sender As Object, e As EventArgs) Handles ButtonSlotSelection.Click
        Process.Start("http://city-life-rpg.wikia.com/wiki/SlotSelection")
    End Sub

    Private Sub ButtonTSPasswords_Click(sender As Object, e As EventArgs) Handles ButtonTSPasswords.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/68311-clpd-teamspeak-passwords/")
    End Sub

    Private Sub ButtonCLPDHandbook_Click(sender As Object, e As EventArgs) Handles ButtonCLPDHandbook.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/32310-clpd-handbook/#entry53813")
    End Sub

    Private Sub ButtonQuickOffense_Click(sender As Object, e As EventArgs) Handles ButtonQuickOffense.Click
        Process.Start("http://city-life-rpg.wikia.com/wiki/Offence_Quick_Reference")
    End Sub

    Private Sub ButtonLOA_Click(sender As Object, e As EventArgs) Handles ButtonLOA.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/68312-leave-of-absence-notification/")
    End Sub

    Private Sub ButtonSFR_Click(sender As Object, e As EventArgs) Handles ButtonSFR.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/61543-subject-for-removal/")
    End Sub

    Private Sub ButtonRoster_Click(sender As Object, e As EventArgs) Handles ButtonRoster.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/65919-clpd-roster-and-officer-info/")
    End Sub

    Private Sub WarrantToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WarrantToolStripMenuItem.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/forum/78-warrants/")
    End Sub

    Private Sub ArrestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ArrestToolStripMenuItem.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/forum/46-arrest-reports/")
    End Sub

    Private Sub SlotSelectionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SlotSelectionToolStripMenuItem.Click
        Process.Start("http://city-life-rpg.wikia.com/wiki/SlotSelection")
    End Sub

    Private Sub TSPassowordsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TSPassowordsToolStripMenuItem.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/68311-clpd-teamspeak-passwords/")
    End Sub

    Private Sub QuickOffenseReferenceToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuickOffenseReferenceToolStripMenuItem.Click
        Process.Start("http://city-life-rpg.wikia.com/wiki/Offence_Quick_Reference")
    End Sub

    Private Sub CLPDHandbookToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CLPDHandbookToolStripMenuItem.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/32310-clpd-handbook/#entry53813")
    End Sub

    Private Sub LOANotificationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LOANotificationToolStripMenuItem.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/68312-leave-of-absence-notification/")
    End Sub

    Private Sub SFRToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SFRToolStripMenuItem.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/61543-subject-for-removal/")
    End Sub

    Private Sub RosterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RosterToolStripMenuItem.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/topic/65919-clpd-roster-and-officer-info/")
    End Sub

    Private Sub ImpoundToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImpoundToolStripMenuItem.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/forum/82-vehicles-impounded/")
    End Sub

    Private Sub ButtonRepo_Click(sender As Object, e As EventArgs) Handles ButtonRepo.Click
        Process.Start("http://www.cityliferpg.com/forum/index.php?/forum/82-vehicles-impounded/")
    End Sub
End Class
